CORTEX USER GROUP 
NEWSLETTER III SEPTEMBER 1985 


Welcome to the first of the new quarterly newsletters 
We apologise for the delay in publication of this issue. 


Once again the number of letters we have received has 
increased. Thank you for your continued interest and 
support. We are sure that almost any subject (relating 
to the Cortex) which you wish to write about will be of 
interest to other users, so please keep -those. letters 
coming. cet ot oe a 


You may notice a change in the format of the newsletter, 
as all of. the articles are now arranged in relevant 
sections. We hope that this will make .the newsletter 
easier to follow. It would also be helpful if- people 
writing in were to keep different items roughly separated 
(e.g keep programs separate from tips). 


Further to the notice in the Newsletter II, referring 
to the discontinued Texas 9909 (Floppy disc control chip), 


we now bring you more news on this subject. 


The chip is now ‘replaceable by a module which uses a 
different chip. 


Due to the prohibitive cost of producing this module, 
we have decided it was better to simple make the circuit 
diagram available (see enclosed sheet). The module 


takes its inputs from the 9909 socket, and outputs directly 


to the floppy disc control. The circuit has, of course, 
been built,and was found to work well. 


¢ 


The following letters, and programs have been submitted 


by Cortex Users. Powertran Cybernetics Limited cannot 


accept liability for their content. 


CORTEX TIPS 


This is your chance to pass on any amazing (or just plain 
useful) discoveries, that you have made about the workings 
of the CORTEX. | 


Mr S Pratt 
Cleveland 


. Stephen has kindly. sent ina couple of useful notes. 


Some more ‘information for the magazine, it's not ‘much but 
it might be of some help. | 


1. The protected memory, mentioned by Robert Lee is fine 

| as long. as you do not attempt to define characters 
- greater than 215 using "CHAR" since this is where 
they are stored. ‘7 4 7 | 


2 The character set is | stored in memory from SBAEH to 
60ECH inclusive, lower case is from 5D34H to 60DDH 
inclusive. -..... | | 


Hope this is useful. 
---x xx a ae 


Julian Terry 
Rainham 
Kent — 


Julian has been trying to confuse his Cortex with negative 
line numbers, and has also sent some information about 
XOP's. | | 


In the first issue of the Users Group Magazine someone 
mentioned that one could renumber backwards, well you can 
also renumber over 32767. =‘This is not adviseable since. 
one ends up with negative line numbers and the program 
will not run. | : | | 


XOPO moves *R11—_™ RO 
*R11+2 — Ril 
*R11+4 — R2 


XOP1 moves RO — *R1l1 
Ri-=> *R1I1+2 
R2 — *R11+4 


XOP8 
XOP9 


XOP11 


 XOP 14 


Sets Pegieeere 0 to 2 (inc) to zero. 
If RO <> O then RO = RO + on 


This is a very useful routine. R8 points to the 


start of an arithmetic expression in internal 


condensed form (not as in a listing). 

When the command is executed the integer value 
of the expression is returned in the argument of 
XOP11. This will perform all error checking and 
includes all system functions. R8 after execution 
will point to the byte after the expression. 


is used eae the following format 

XOP @>n, 14° © | 

Where n is an error number. The appropriate error 
message will be displayed and correct action taken 
(e.g. call to ERROR line). 

nis in the range 0 - 63 

Atpresent any error >49 will return "SYSTEM ERROR". 
There are two more error messages not mentioned in the 
Cortex manual. These are 41-Expansion Eprom not. 
found, O-FATAL SYSTEM ERROR (the computer locks | up when 


this is executed, Personalized errors may be added 
by putting "BL@> routine address" at location IDFCH. 
Rl will hold the error.number 

R2 should be set to.5732H and RT executed if it is 
not your error. If it is your error then the 
routine should finish with B@> 1E14. 

SYS[1] will be set as required. 


Errors with numbers greater than 31H will be trapped. 


XOP15 


is spare. 


Sa Ae een 


Chris Young © 
Lossiemouth 
Morayshire 


- 


Chris makes another appearance with his list of MID 


instructions which are not otherwise documented. 


0006 xxxx 
OO007 xxxx 


WRIT RO 

Prints CRLF 

Reprints last message 
WRIT Rl : 

WRIT RI 

MSG @>xxxx 

MSG @>xxxx 


WRIT > (write immediate) 


000B = Retrieve Character from keyboard buffer. 


xXxXXX if null then execute xxxx 
YYYY if not null execute yyyy 
ZZZZ if ESC then execute Zz2z 
XXXX,YYYY & ZZZzZ should be JMP's 
OOO0C = READ RO (used to get characters from Cassette when 
keyboard is disabled) 

OOOD = READ RO 
xXXXX . if nul execute xxxx 
yYYYY if not null execute yyyy 
OOOE = Wait until >EDAA is zero. 
OOOF = TEXT (as in BASIC). 
0010 = GRAPH (as in BASIC) 
0011 = TEXT (if not in TEXT mode | 
0012 = GRAPH (if not in GRAPH mode) 
0013. = Clears keyboard buffer. 
0014. = cassette ! | 
0015 = cassette ! 

-\|-- xX XxX-rcrsc 
Tim-Gray 
Wolverhampton 
West Midlands 
Here are some more tips from Tim. 


CDOS Modifications 


The program FILECOPY has no facility for choosing the 


files to be copied from one disc to another. If the 
following lines are added to the _ program: it allows 
you to go through the directory, but only copy’ the selected 
files. The program prints the filenames found, and 


then asks if you want to copy it or not, answer Y or N, 
if yes the file is copied, if no the next directory entry 
is found. | 


361 PRINT 

362 INPUT " do you want to copy it Y/N Gi 
363 IF SANS = "Y" THEN GOTO 370 | 

364 IF SANS = "N" THEN GOTO 790 

365 GOTO 362 


After adding the extra lines save the program . with the 
new name COPYFILE so that you still have the choice of 
which Bae oee, you use. 


To allow the use of the * command to load program from 
drive 0 assemble the following code at 69A4. 


69A4 MOV R8,R2 

69A6 JMP >69AC 
69A8 LI R2 >69B6 
69AC CLR Rl 

69AE LI Rii >0080 
69B2 B 


@>659C 


and change the following memory locations: 


699A from ODOA to 4344 
699c_—" 434F "  4F53 
699—F +" 5254 " 2031 
69A0 +" 4558 "  ODOA 
69A2 _" 2044 ." 0000 
69FO " 0000 " 4056 
69F2 " 0000 " 69A4 


To make the routine auto load a program: from the BOOT 
command change the following memory locations:- | 


6996 from 021C to. 69A8 


And from 69B6 onwards add the ascii codes for the filename 
required (maximum of 8 characters) terminating with 0000. — 


After making the required changes re-save the SYSTEMS 
file from the monitor using the D command:- - | 
start addr 6900 end addr 6EFE entry point 6980, IDT - SYSTEMS, 
auto run - Y. 


The * command works 


by simply typing *<filename> with 
no delimiters or quotes. 3 | | 


To load program 


. files from a machine code routine use 
the following:- | 


Rl ><drive number> 


LI 

LI R2 ><start of filename> 
LI R11 50080 ; 

B @>659C 


And finally a hardware modification for those of you who 
are brave enough to venture within the Cortex case. 


If pin 4 of the keyboard socket is connected to pin 4 (DO) 
of IC63 the keyboard can be read directly in basic without 
the problem of random values being returned or having to 
press the repeat key, use the following line:- 


BASE 16:K=KEY[0]:IF CRB [-8]=1 THEN K=CRF[8] 


---xXxXX--- 


PROGRAMS 


Written any good programs? ~ 
print! 
Users. 
the original. 


All 
Each 


Helge A Larsen 
Stathelle 
NORWAY 


the 


following have been 
listing has been thoroughly checked against 


Then send them in for us ‘to 
sent in by Cortex 


Our apologies to Mr Larsen for the assumption that Helge 


was 


routines. 


Obviously my name is 
in the 


a female 
male's name, Helga is as female name. 


as a female name ) 
in to correct us on this point, 


(Ref Newsletter II). 


unknown in England since 
last newsletter. 


He has written 
and has sent two useful 


I've been 


Helge is in Norway a 


I've found a short routine to read the keyboard,and written 
a routine for scrolling one or more lines right pixel by 


pixel 


such that 


characters 


enter at the left side. 


Keyboard reading routine 


6000 
6004 
6006 
6008 
600A 
600C 
600E 
6010 
6012 
6014 
6016 
6018 
601A. 
601C 
601E 
6020 
6022 
6024 


020C 


3601 


3602. 


3603 


3604 


9081 
1608 
90C2 
1606 
9103 
1604 
05C0 
0580 
D401 
0380 
05c0 
04D0 
0380 


Scroll Routine 


6000 
6002 
6004 
6006 
600A 


06CO 
C200 
C181 
0201 
O6A0 


R12,0010 
R1,8 


RO 

RO,R8 
R1,R6 
R1,>C000 
@>05F2 


leaving the right side will 


Use of routine: 


10 K=0 
20 CALL 6000H,ADR(K) 
30 PRINT K: GOTO 20 


i 
l 


Z 
i 


MOVB 
0281 CI 
16FB JNE 
O20L ii 
0202 LI 
0203.11 
D131 MOVB 
0994 SRL 
1802. JOC 
04c5 CLR 
1001 JMP . 
0705 SETO 
cc85 MOV 
0603 DEC 
16F7 JNE 
0201 LI 
0202 LI 
0203 LI 
C152 MOV 
1606 JNE 
D111 MOVB 
0994 SRL 
181D JOC 
04c5 CLR 
06C4 SWPB 
1007 JMP 
D111 MOVB 
0994 SRL 
1819 JOC 
04c5 CLR 
06C4 SWPB 
0264 ORI 
DC44 MOVB 
cc85 MOV 
0603 DEC 
13E9 JEQ 
0281 CI 
11EA JLT 
0201 LI 
0268 ORI 
O6A0 BL 
D831 MOVB 
0281 CI 
16FB JNE 
1004 JMP 
0705 SETO 
10E2 JMP 
0705 SETO 
10E6 JMP 
0248 ANDI 
0228 AI 
0606 DEC 
16B6 JNE 
0380 RTWP 
6000H,L,N 


@>F120,*R1+ 
R1,>C100 
>600E 
R1,>COF8 
R2,BFFO 


R2,>BFFO 


>603A 


'R1,>C100 


>6042 
R1,>C000 
R8,>4000: 
@>05F2 
+R1+,@>F120 


-R8,>BFFF 


first line to be scrolled (upper 0) 


number of lines to be scrolled. 
oe: oe 


Mr RM Lee 
BFastbourne 
Sussex 


Robert not only solves other users problems (see bug byte 
section), but is also a keen programmer himself. 


FLASHING CURSOR | 


This program simply makes the cursor flash on the screen, 
but only when the computer is not accessing the screen 
1.e. in IDLE state. The entry point when saving is 6064H. . 
The routine is called every 10ms by the clock routine s 
do not overwrite it before removing the vector jump. | 


dumps 


for 


an RX-80 printer, 


6000=EEAO 
6002=6004 
6004 0587 INC R/ 
6006 0287 CI R7/,>0032 
600A 1A26 JL >6058 
600C C1AD MOV @>001C (R13) ,R6 
6010 0286 CI R6,>046C 
6014 1621 JNE >6058 
6016 04C7 CLR R/ 
6018 0201 LI R1,>F120 
 601C 0200 LI RO,>F121 
6020 0202 LI R2,>0008 
6024 COC2 MOV R2,R3 
6026 0208 LI R8,>OBF8 
602A 0205 LI R5, >EECO 
602E O6A0 BL @>O05F2 
"6032 DD51 MOVB *R1,*R5+ 
6034 0602 DEC  R2 
6036 16FD JNE >6032 
6038 0202 LI R2,>0004 
603C 0205 LI R5 ,>EECO 
6040 0575 INV *R5+ 
6042 0602 DEC R2 
6044 16FD JNE >6040 
6046 0208 LI R8,>4BF8 
604A 0205 LI R5,>EECO 
604E O6A0 BL @>05F2 
6052 D475 MOVB *R5+,*R1 
6054 0603 DEC R3 
6056 16FD JNE >6052 
6058 0380 RTWP 
605A 0420 BLWP €@>6000 
605E 0300 LIMI >0000 
6062 C820 MOV @>605A,@>010E ~ 
6068 C820 MOV @>605C,@>0110 
606E 0300 LIMI >OO0O0F 
6072 0460 B @>021C 
Here is a program that enables GRAPH mode screen to printer 


but there is no reason why 


it should not work for any other new EPSON printer. The 
program is written for a centronics printer with UNIT 4, 


but to change to RS232 UNIT 2, change location 6024H to 
2H. The entry point when saving the program is 60EAH. 
This routine sets up the word "DUMP" in the computer's 
symbol table and allows the statement "DUMP" to be used 
whenever the program is needed e.g. _ 3 

10 GRAPH 

20 DUMP 

30 END 


Some problems may occur if the BASIC program is very large, 
as the DUMP program uses some 6K of memory just above the 


users BASIC program. 


SCRFEN TO PRINTER DUMP 


6000 
6004 
6008 
600C 
6010 
6014 
6018 


0202 
0203 
0204 
0208 
C1iA0 


O6A0 


DD92 
0604 
16FD 
020A 
0200 
C800 
0200 
OFOO 
0200 
OFOO 
0200 
OFOO 
0200 
OFOO 
0200 
OFOO 
0200 
OFOO 
0200 
OFOO 
0200 
C060 
0202 
0203 
OFO3 
0203 
OFO3 
0203 
OF03 
0203 
OFO3 


0203 


R2,>F120 
R3,>F121 
R4,>1800 
R8,>0000 
@>EFCO,R6 


RO,@>001E 

RO, >0A00 

RO 

RO, >1B00 : 
RO 
RO,>4100 
RO 

RO, >0800 
RO 
RO,>1B00 
RO 
RO,>6C00 
RO 
RO,>1300 
RO 
RO,>0008 
@>EFCO,R1 
R2,>1800 
R3,>1B00 
R3 
R3,>4B00 
R3 
R3,>0000 
R3 


-R3,>0100 


R3 
R3,>0018 


ay ge ee ED: S 


607C . 0204 - 
6080 0205 . 
6084 C185 
6086 cCcicl 
6088 c005 
608A 04C9 
608C 0A19 
608E D231 
6090 06C8 
6092 0908 
6094 1701 
6096 0589 
6098 0606 
609A. 16F8 
609C OA89 
609E OFOY 
60A0 C185 
60A2 C047 
60A4 0600 
60A6 16F2 
60A8 AQ45 
60AA 6085 
60AC 0604 
60AE 16EB 
60B0 0200 
60B4 OFOO 
60B6 OQ60A 
60B8 16D3 
60BA 0200 
60BE OFOO 
60C0O0 0200 
60C4 OFOO 
60C6 0200 
60CA OFOO 
(60CC 0200 
60D0 OFOO 
60D2 0200 
60D6 OFOO 
60D8 0200 
60DC C800 
60EO0 0460 
60E4 6D49 
60E6 0020 
60E8 6000 
60EA C820 
60FO C820 
60F6 C820 
60FC 0460 
P Edwards 


Cochrane Park 
Newcastle-upon-Tyne 


NE/ 


7LL 


R4,>0020 


R5,>0008 
~R5,R6_ 


>6086 
RO,>0A00 

RO 

R10 

>6060 
RO,>1B00 

RO 

RO,>6C00 

RO | 
RO,>0000 

RO 

RO,>1B00 

RO 

RO,>3200 

RO 

RO,>0001 
RO,@>001E 
@>3F30 
R9,*R5S+ 

>0020 

RO,RO 
@>60E4,@>3A88 
@>60E6,@>3B34 
@>60E8,@>4026 
@>021C 


m= =- X¥XX- = = 


Paul is obviously not content with just writing programs. 
He has found a way of adding new commands. 


- 10 - 


Here 


added to the CORTEX dictionary. 
to address, 


28, 


If any CDOS users wank like to add this, 


M/Code to their BOOT file, 


another 


is the assembler listing for a 


the 


absolute 


"FIND' 
To relocate the program 
addresses at 


command to be 


lines 15, 


31, 47 and 63 will need to be changed accordingly. 


routine 


supply details of how I have done it. 


en ts ee 


or any other 


I would be happy to 


assembler written for 


sstart of string to be found 
s;temp. store for string 
pByorS OYEe 7 


enew line 


;pointer into basic tables 


jend of table ? 
2 = . 18-4 


>f£in20 
sget prog. line in ascii 


start of line of program 
point to search string 
7end of line ? 

smatch ? — 

sno, try next one 


jend of search string ?- 
7yes 
smatch ? © 


ewrite line 
snew line 


“Has any CDOS user got a 2 pass 
sharing? B. 

a ee The 'FIND' command is entered into the command 
Zs table by a call to ‘INIT’ at the end of this 
3 ; aa iat 
4 3 time. 

oO. 3 The syntax is 
6 5 | FIND STRING<CR> 
7 3 
8 ; This will search the program and print out any 
9 ; Segre enema es | 
10 
11 section find | 
12 6200 org 6200h 
13 | 
14 6200 0200EB09 li r0,0eb09h 
15 6204 02016286 li r1,store 
16 6208 DC70 finiO movb *r0+,*r1+ 
17 620A 16FE jne f£inl0 
18 620C OFA0O556F msg ‘556fh 
19 =6210 04C1 clr ri 
20 6212 0706 seto r6 
21 6214 C220EFBC MOv -Oefbch,r8 
22 6218 0648 dect r8 
23 #621A 8808EFBA fin20 c r8 ,Oefbah 
24 621E 1227 | jle out 
25 6220 0228FFFC ai r8 ,Offfch 
26 6224 8601 c r1,*r8 © 
27 =©6226 15F9 jgt £in20 
28 6228 06A06250 f1in30 bl decode 
29 | | 
30 622C 0202EB04 li r2,0eb04h 
31 6230 02016286 fin35 Mi r1,store 
32 6234 D492 fin40 movb *r2,*r2 
33 6236 13F8 jeq £in30 
34 6238 9C91 cb ¥r1 ,*r2+ 
35 623A 16FC jne £in40 
36 623C 0581 £in50 inc r1 
37 623E D451 movb *r1,*r1 
38 6240 1303 jeq found 
39 6242 9C91 cb ¥*r1,*r2+ 
40 6244 16F5 jne £in35 
6246 10FA jmp £in50 
42 6248 OO0A found word 10 
43 624A OFAO556F msg 556fh 
44 624E 10EC jmp £in30 


6250 C80B62EA 


sg 8H subroutine to decode basic line **** 
decode 


mov ' ¥11,store2 _- sSave return vector 
6254 8808EFBA ic r8 ,Qefbah 7end of table ? 
6258 1A0A jl out gout 
625A C078 Mov *r8+,r1 
625C 8181 oe r1,x6 
- 625E 1B07 gh. out sout 
6260 06A03C80 bl —.3c80h ; decode Vins 
6264 0228FFFA ai r8 ,Offfah 
6268. C2EQ062EA mov store2,r11 er eer 
626C 045B rt sreturn 
626E 0460021C out b  — 21ch back to basic 'Ready' 
6272 0201724C INIT li rt,724ch ;"FIND' coded 
6276 €8013A20 mov r1,3a20h sput it into table 
627A 02016200 li r1,find gstart of prog 
627E C8013ACC MOV . ri1,3acch sinto table 
6282 0460021C b 21ch sback to Basic 
6286 64. store block 100 | 
62EA 0000 store2 word 0 
nolist .sym 
end 
- -- X X xX a ae 


‘Mr R A Green > 
Rotherham 
South Yorkshire 


Mr Green has 
the stock exchange. 


sent us two ‘programs, both with a view to 


they may not make money 


Please try my Shares a: 

but do show where it went. The Histogram program can 
be altered very | by anyone to show any data in 
histogram form. es eG 7 
10 H TAB (10) "Shares Program.' 

20 7 | = 

30 > TAB (10)"Enter Latest Prices." 

33 ; | | : 

35 3; TAB (10)"In Pounds." 

40° ; ha ee ee 

50 INPUT " Example Are"A4 

60 : : 

161 INPUT " British Telecom are"G4 

162 ; | 

164 ; 

170 DIM $x[2] 

180 INPUT "Prices are for "$x[0] 

190 DIM S$A[4],$B[4],$C[4], sD[4] 

200 DIM S$L[4],SR[4],$S[4] © 

210 DIM 21[3],22[3],23[3], 24[3]. z5[31, Z6[3],27([3], 2813], Z9[3] 


- 12 — 


220 


SR[O]="SS,SSS" 

$s[0]="SS,SSS.99" 

DATA "EXAMPLE", 500,"B1234","22/2/83",124,630,A4 

DATA ' "™ " * ,100,"BB123","2/1/85",0,0, Ad | 

DATA "BRITISH TELECOM", 800,"XXXXXXXX", "23/11/84", 50,400,G4 
DATA "END",0,"END", "END", 0,0,0 

T1=18: T2= 28: T3= 38: T4= 48: T5=58: T6=68: T7=78: T8=88 
UNIT 2: 3; "<1B><75><14>" 

PRINT TAB (40) "FINANCIAL REVIEW"; TAB (80)$xX[0] 

PRINT "as 

> TAB (T1) "SHARE" TAB (T2)"CERT"; TAB (T3)"DATE": TAB (T4) 
"BOUGHT"; TAB(T5) "TOTAL"; . 

> TAB (T6)"CURRENT"; TAB (T7)"PRESENT"; TAB (T8) "GROSS" 

> TAB (T1)"HOLDING"; TAB (T2)"NUMBER"; TAB (T3) "BOUGHT"; 
TAB (T4)"PRICE";TAB (T5) "COST"; | | 

> TAB (T6)"PRICE"; TAB (T7)"VALUE"; TAB (T8)"PROFIT" 
Z5=0: zZ6=0 | 7 | 

READ S$A[0],21,$B[0],$C[0] ,22,23,24 

IF SA[O0]="END" THEN GOTO 560 

- #SR[0];SA[0]; TAB (T1);21; TAB (T2)SB[0]; TAB (T3)$C[0]; 
TAB (T4);22; TAB (T5):Z3;7 

> #SS[0]; TAB (T6-2);24; ‘TAB (T7-2); Z4*Z1; TAB (T8-2); 
TAB (T8-2);(Z4*Z1)-Z3 , 

Z25=(Z4*Z1)+Z5 

Z6=(Z4*Z1)-Z23+2Z6 

GOTO 480 

"<1B><75><1>" 


#SR{0O]:; TAB (30);"TOTAL VALUE I1S"Z5 


me =e 6G hU6UMO UNO 


#SR[0O]; TAB (30);"TOTAL PROFIT IS"Z6 
UNIT -2 : : 
INPUT " ANOTHER PRINT Y/N?"SD[0] 

IF S$D[O0]="N" THEN END 

IF SD[O]J= uy THEN RESTOR 

GOTO 400 - 7 Ss 

STOP 


"Purther shares may be added as" 

"in the example by inserting one" 

"INPUT line and one line of" 

"appropriate DATA." 

"Scrip issues are dealt with as" 

"Shown by adding one line of DATA.""700;"Line 400 changes 
my printer to" : 

"96 columns." 

"Line 560 changes it back to 80. 


a i ee i iT 


=o 6 


er ee en SS 


REM HISTOGRAM PROGRAM 
DIM $D[4],$(2],S[12] | 
INPUT " Name Of Share Is "SD[O] 


INPUT " Present Year Is 198"P 

INPUT " Present Month Is "SC[0] 
> " Input Previous 12 Months Prices In" 
> " pounds Starting With 12 Months Ago" 


a 3 


80 INPUT S[0],S[1],S[2],S[3],S[4],S[5],S[6],S{7],S[8],S[9], 
| S[10],S[11] 
90 UNIT 2 


100 * TAB (20)SD[0] 

101 4 

110 > TAB (15) "SHARE PRICE FOR LAST TWELVE: MONTHS" 
120 ?. TTAB (3) SS SS SS " 
130 REM FIND MAX VALUE OF Y AXIS 

140 M=S[0] | 


150 FOR J=0 TO 11 !REM NO OF VALUES TO PLOT 
160 IF S[J]<M THEN GOTO 180. 
170 ELSE M=S[J] 


180 NEXT J- 


190. REM MIN VALUE TO PLOT 
200 xX=S[0] 
210 FOR J=0 TO 11 
220 IF S[J]>X THEN GOTO 240 
230 ELSE X=S{[J] 
240 NEXT J 
250 X=X-0.15 
| > "POUNDS". 
2/0 : : 
280 Y=(M-X)/20 
290 FOR I=M TO X STEP ~-Y 
300 ° #"9.,99"T; TAB (5)":"3 
310 B=2 7 
320 REM PRINT HISTOGRAM 
330 FOR J=0 TO 11 
340 B=Bt5 !'REM SPACING FOR COLUMNS 
350 IF S[J]<I THEN GOTO 380 | 
360 ; TAB (B) va ES 
370 GOTO 390 — 


400 ; TAB (66)":" 
410 NEXT I 


420 ; "“"----- Sr rr 
452 2=1980+P 
430 ; TAB ee ONES a TAB (61)SC[0O];" "Z 
431 ;3 | 
440 T=2 
450 FOR J=0 TO 11 
460 T=T+5 
470 ; #"9.99"; TAB (T);S[J]; 
475 S[Jd]=0 
480 NEXT J 
490 3; 
500 UNIT -2 
510 END 
a ae OE OE Ss 
C J Young 
Lossiemouth 
Morayshire 


Chris has been very busy on his Cortex. Here is his version 
of a multicolour mode. It is relocatable, and is stored 
in an array. This means that you do not have to use the 
NEW function, and it also works with CDOS. 


a: TA. ce 


7 


REM RRR KAR ARERR ARERR RRR ER 


REM * ; * 
REM * Multicolour Mode * 
REM * (Fully Reloctable * 
REM * Machine Code) _* 
REM * by Bint * 
REM * Chris Young. * 
REM * ee! 
REM KEKKKKKEKKKEEKKKEKKEKKEREKEEE 


REM 

REM * Sprites Can Also Be used in 
REM * multicolour mode. 

REM 

DIM MC[30] 7 
MLT=ADR[MC[0]] !Set up Address 
MTP=MLT+046H !Pixel Address 

REM | 

REM KEKKKKEKKKEKEKKKEKKEKEKREKEEE 


REM * Read Machine Code * 

REM KEEKKKKEKEKKEKEEKKEKKEEREEE 

REM 

FOR X=MLT TO MLT+OACH STEP 2 
READ A 

MWD [X] =A 

NEXT X 7 <n 

CALL MLT !Set Up Screen . 

REM ee. as 
REM KHKKKKKKKEKKEEKKEKEKEEREKEKEEKE 


REM * Randomize Pixel Colours *- 


REM KEK KEKKKKKKKKEKKKKKKKKEKEEEE 


REM > 


FOR Y=0 TO 47 

FOR X=0 TO 63 

CALL MTP,X,Y, INT [RND*16] 

NEXT X 

NEXT Y 

GOTO 320 

REM 

REM * Set up Screen Data * 

REM 

DATA 010H,0200H,0C800H, OD800H 
DATA OF121H, 0201H, 08100H | 
DATA OD801H, OF121H, 04C2H, 0C202H 
DATA 0228H, 01800H, 0C042H, 0241H | 
DATA .01FH, 0COC2H, 0973H, 0A53H 
DATA 0A043H, 0268H, 04000H, O6A0H © 
DATA O5F2H, 06C1H, 0D801H, OF120H 


‘DATA 06C1H,0248H, 03FFFH,0582H 


DATA 0282H,0300H, 011E8H,0380H 
REM 

REM * Set Pixel. * 

REM 

DATA 0C200H,0281H,0FH 

DATA 01501H,01008H,0281H,01FH 


a 


01503H,0221H,040H,01002H 


550 DATA 

560 DATA 0221H,080H,0C148H,0245H,01H 
570 DATA OCOC8H,0913H,0C101H,0934H 
580 DATA 0A54H,0C1C4H,0A33H,0A37H © 
590 DATA 0A1C3H,0C181H,0246H,07H 

600 DATA OA1C6H,0C207H,06A0H, 05F2H 
610 DATA ODO60H,0F120H,06C1H,0C145H 
620 DATA 0150CH,0A42H,0241H,0FH 

630 DATA 0A042H,0268H,04000H, 06A0H 
-640 DATA O5F2H,06C1H,0D801H,0F120H 
650 DATA 0380H,0241H,0F0H,010F4H 

Use of multicolour mode: 

MLT machine code call sets up the multicolour mode 
MTP requires 3 parameters X,Y, Colour 


X has the range 0 to 63. 
Y has the range 0 to 4/7 
Colour is from 0 to 15 


Sect let OE Oe 


Mr M D Rudnicki 
Bognor Regis 


Sussex ee 
Mark is the author of one of our best selling games - 
'Burglar' However, he is obviously keen to help the 


rest to us with further extensions to his graphics ‘commands , 
which were included in News letter 1 


Here are extensions to my graphics eonmanas: and a basic 
loader for them, as requested by several people who wrote 
to me. following the appearance in the last newsletter 
of the first commands. | 


FULL MACHINE CODE LOADER FOR GRAPHICS ROUTINES. 


10000 RESTOR 10070 
10010 T=O0 

10020 FOR I=06200H TO 06430H STEP 2 

10030 READ A: MWD(I)=A: T=T+tA 

10040 NEXT I 

10050 IF T=-133059 THEN RETURN | 

10060 PRINT"ERROR IN MACHINE CODE": END | 

10070 DATA 512,88,-10240,-3807,1728 ,-10240,-3807, -15344 
10080 DATA 512, 768, 513, 8224, -10239, -3808, -15279,1536 

10090 DATA 7163; 896, 4096, -10230, -3808, 1738, ~14694 

10100 DATA -10230, -3808, -14694, 1115, 1728, -10240, -3807,1728 
10110 DATA -10240,-3807,-15344,1115,576, 255, 2608, 608 

10120 DATA 16384,521,3,1696,25144,-15743, 1696, 25128 | 
10130 DATA -15742,1696,25128,-15741,1696,25128,-15740,1696 
10140 DATA 25128,544,2048,1545,7150,544,2048,521 

10150 DATA 3,1696,25144,-15739,1696,25128,-15738,1696 
10160 DATA 25128, =15737, 1696,25128, -15736, 1696, 25128, 544 
10170 DATA 2048, 1545, 7150, 896,544, 6144, 608, 16384 


= 20> 


10180 
10190 
10200 
10210 


10220 
10230") 


10240 
10250 
10260 
10270 
10280 
10290 
~10300 
10310 
10320 
10330 
10340 


10350 


10360 
10370 


10380. 


10390 
10400 
10410 
10420 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 


DATA 


DATA 


‘DATA 
_DATA 


DATA 
DATA 


DATA 


DATA 
DATA 


DATA. 
DATA 


DATA 
DATA 
DATA 
DATA 


1696,25144,-15344,1729,-10239,-3808,1729,896 
544, 6144, 1696, 25144, 1473, 1409, ~11168, -3808 | 
896,0,0, 0, 576,255, 2608, 544 | 
30720, 1696, 25144, -15743, 1696, 25128, -15742,1696 
25128, “15741, 1696, 25128, =15740, 1696, 25128, 896 
576, ee 2592, 544, 23296, 1696, 25144, 577: a 

255, 1730, 578, 2556; 24510. 15743 1696, 25128 > 
1731, 5/9, ae 580,15, 94317, -15740, 1696 

25128, 896, 0,0,576,31,2592, 544 

23296, 1696, 25144, 577, 255, 1730, 578, ~256 

-24510, 215743; 1696, 25128, 896, 0: 0, 0 
-14335,-4064, 314534; -4054, -14333, -4052, -14332, -4050 


-14331,-4048,576, 255, 2576, -16320, 2576, -24512 
545,23278,-16207,-16143,-16111,1221,1222,1223. 


1224,-16382,5/6,-1024,-16064,-16382,576,1008 
2336,-24256,578,15,2/54,-15998,-16381,576 
-16384,2368,-24192,-16381,576,16128,2400,-24192 
-15933,583,252,2695,579,3,2659,-24125 : 
-16380,576,-4096,2464,-24128,-15868,584, 4032 
2632,580,63,2596,-24060 ,-14331,-4062,-14330 


4060, -14329, ~4058, -14328, -4056, 1036, 2200s 896 


-4064,25160, -4064, 25256, 0,0,0,0 

-14336, ~4064, 1218, Eiotrt. 5633; 896, 1730,-14334 
-4062, 1056, 25604, 1408, 4339, O, 0, 0 

0,0,0,0,0, 0, 0,0 


The commands these routines support are as follows: | 


06200H as in the last Newsletter. 


Te Initialise CALL 
2% Set char. -:CALL 06248H, Chr, Sl, S2, S3, 84, Cl, c2, C3, C4 
53 Put char. CALL 062A8H, Pos, chr 
4. Get char. CALL 062COH, Pos /ADR (var) 
oe Shape. CALL 062D8H,Shape number,S1,S2,S3,S84 
This is like the SHAPE command,and is used to 
define a sprite pattern from machine code.. 
6. Sprite. CALL 06300H,NO,xX,Y, Shape, Col. | 
- This is like the SPRITE command, and follows 
exactly the same Syntax, for sprite movement in 
machine code. 
7% Move Sprite CALL 6338H,No,X,Y , 
This just sets new co- ords for a sprite, from 
machine code. 
8. Character. CALL 6360H,N1,N2,C1,C2,C3, C4: 
This gee ice a character N2 from the Cortex 
character set, number Nl, with colours c1i-4. 
a. Text CALL 6410H, Pos ,ADE ($string) 


Prints out the contents of $string in the new 
mode,provided all the necessary characters 
have been predefined e.g. using the Character 
command. 


oe ye 


- Tim Gray : 
Wolverhampton 
West Midlands 


Tim is: rapidly threatening to take over these .newsletters 
with the flood of articles and information he has_ been 
sending. . — | : 


Here iS a sample of his software. 


SHAPE is a shape design programme that allows you. to design 
up to 9 shapes at a time and also writes its own DATA lines 
to save you having: to make notes. All that is then required 
is to PURGE the main program lines and use the data lines 
for your next programme. : 


On running the shape generation programme 9 8x8 blocks 
are displayed on the screen, use the cursor arrows to select 
a pixel and INS/DEL to set or reset it after all 9 shapes 
have been designed press RETURN and the programme displays 
the numbers of the data lines generated for each shape 
and restarts with a clean block of 9. | | 


5 LNO=6001: KL=0 | _ 

10 COLOUR 15,12: GRAPH:X1=64: Y1=-1 

13 DIM A[9,4] a 

18 DIM SQ[9,4,2]: DIM S$LIN[20]: DIM SS[2] 
19 REM ***PLOT GRAPHICS*** | 

20 SHAPE 255, OFF81H,08181H,08181H, 081FFH 
30 A=4: COLOUR 1,9: GOSUB 1300 

40 A=12: COLOUR 1,6: GOSUB. 1300. 

50 A=20: COLOUR 1,9: GOSUB 1300 

60 A=260: COLOUR 1,6: GOSUB 1300 

70 A=268: COLOUR 1,9: GOSUB 1300 

80 A=276: COLOUR 1,6: GOSUB 1300 - 

90 » A=516: COLOUR 1,9: GOSUB 1300. 


100 A=524: COLOUR 1,6: GOSUB 1300 

110 A=532: COLOUR 1,9: GOSUB 1300 

130 COLOUR 1,12: PRINT @(0,0);"DATA": PRINT "LINE":PRINT 

No's": PRINT:PRINT | | 

140 FOR N=1 TO 9: FOR M=1 TO 4: A[N,M]=O:NEXT M: NEXT N- 
149 REM ***GOTO CURSER*** | 

150 GOSUB 2000 
155 REM *** ENTER THE DATA *** 
160 LNO=LNO+10 
170 KL=LNO 
190 FOR N=1 TO 9 

195 LET $S[0]=KL 
200 FOR M=1 TO 4 
210 SO(N,M,1]=A(N,M] 
220 NEXT M. | , | | 
230 SLIN[0] =$S[0]+"DATA"+SQ(N,1,1]+","+SQ(N,2,2]+"," 

+SQ(N,3,1])+","+SQ[N,4,1] 

235 ENTER SLIN[0] 
236  $€OLOUR 1,12: PRINT " "$S[0] 
240  =KL=KL+1° 
255 NEXT N 


= oS 


260 
270 
280 
2.90 
300 
1190 
1200 


1300. 


1330 
1340 
1350 
1360 


~1380 


2000 
2010 


. 2020 


2030 
2040 
2045 
2049 
2050 
2052 
2055 
2080 


2090 C 


2100 
2110 


2120. 
2130. 


2140 
2150 
2155 
2160 


2165. 


2170 


2175 ° 


2180 


2190 


2200 


PRINT : : : 3; " PRESS ": 3; " ANY": 7 " KEY" 
K=KEY [0] : | 
IF K=0 THEN GOTO 270 

REM ***BACK TO pane AGAIN*** | 


GOTO 10 


REM SRASTORS SS. 

STOP | | e2.% 
REM: ***GRID SUBROUTINE*** | 
FOR Y=A+4 TO A+228 STEP 32 


~FOR.X=0 TO 7 


SPUT Y+X, 2550 7 


-NEXT X 
1370 
RETURN 


NEXT Y 


REM *** CURSER CONTROL kk 


K=KEY[0] | 
IF K=8 THEN X1=X1-8: IF x1<64 THEN X1=64 


IF K=9 THEN X1=X1+8: IF X1>248 THEN X1=248 


IF K=10 THEN Y1=Y1+8: IF Y1>183 THEN Y1=183 | 


IF. K=11 THEN Y1=Y1-8: IF Y1<-1 THEN Y1l=-1 
REM *** CURSER *** . i Sor 


SPRITE 0,X1,Y¥1,255,14 ©. 
REM *** BIT POSITION CALCULATE *** 
Cl= INT [ (X1/8+4) + (Y1/8*32) ] i 
a X1/64 

= (Y1+65)/64 
neat Eee toad -34 (INT ECB] 


CD=(FRA[CA]) *8 | 


CE=(FAC(CB])*8 | 
CF=INT[(CE+2)/2] 


CG=FRA[ (CE) /2] *16 
CH=CG+CD+16 
REM *** SET BIT *** 


IF K=22 THEN COLOUR 1,15: SPUT C1,255: COLOUR 15,12: 
BIT[A[CC,CF],CH]=1 ; ese 7 
REM *** POP BIT *** 


IF. K=23 THEN COLOUR 1,6: SPUT Cl, 255: COLOUR. 15, pl2s .° 


BIT[A[CC, CF] ,CH] =0 


REM *** RETURN TO ENTER DATA *** 


IF K=13 THEN RETURN 
GOTO 2010 | 
REM ***** DATA LINES ***** | oe 


FILL 2 is a machine code fill routine slightly different 
to most because it first looks to see if the pixel at the 
Starting point is set and then uses PLOT to fill the a 
if it is or UNPLOT to unfill the shape if it is not. 


CALL 7000H,x,y 


Where x and y are Ee starting. HOC aEeOR within the shape. 


The routine will fill the shape up until it finds a different 
colour but will return unfinished if it aces: to an off 
screen location or runs out of stack aS A 


er Oe 


Fe EE a SO a a PIE ee Oe 


FILL 2 


FILL/UNFILL ROUTINE 


7000 
7004 
7006 
700A 
7010 
7014 
7018 
701¢: 
7020 
7022 
7024 
7026 
7028 
702A 
702C 
7030 
7032 
7034 
7036 
7038 
703¢ 
703E 
7040 
7042 
7044 
7048 
704A 
704C 
704E 
7050 
7054 
7056 
7058 
705A 
705C ° 
705E 
7062 
7064 
7066 
7068 
706A 
706C 
 706E 
7070 
7072 
7076 
7078 
707A 
707¢C 
7080 
7082 
7084 
7086 
7088 


COAO 
1602 
2FA0 


C820 


C1E0 


~020C 


O6A0 
O6A0 
COC2 
C100 
C141 
1EOL 
LEO2 
0581 
O6A0 


80C2 — 


1606 
1FO1 
1305 
O6A0 
1D01 
1001 
1LEO1 
0641 
O6A0 
80C2 
1606 
1F02 
1305 
O6A0 
1D02 
1001 
1E02 
0581 


0580 


06A0 
80C2 
13E2 
C180 
C004 
C045 
1EO1 


1E02 
0600 


O6A0 
80C2 
161E 
0581 
O6A0 
80C2 
1606 
1F0O1 
1305 
O6A0 


MOV 
JNE 


@>0026,R2 
>700A 
@>0030,14 
@>1CBB,@>F020 
@>EFCO,R7 


~R12,>1EF0 


@>70EE 
@>7188 
R2,R3 
RO,R4 
R1,R5 


>7092 
@>7174 


708C 
708E 
7090 
7092 
7094 


7098 


709A 
709C 
709E 
70A0 
70A4 
70A6 
70A8 
700A 


7JOAC 


70AE 
70B2 
70B4 
70B6 
70B8 


70BA 
 7O0BC 


70C0 
70C4 
70C8 
70CcC 
70D0 


70D2 


70D6 
70D8 
70ODA 
7O0DC 
70DE 
70E0 
J0E4 
70E6 


70EC. 


70EE 
T0F2 
70F4 
70F8 
7OFA 
TOFC 


T0FE 


7100 
7102 
7104 
7108 


710A. 


710E 
7110 
7112 


7116 


7118 


- 20 - 


1D01 
1001 


1E01 


0641 
O06A0 


80C2. 


1606 


1F02 


1305 
O6A0 
1D02 
1001 
1E02 
0581 
0600 


O06A0 B 
‘80C2. 
13E2 


OA80 
OA81 


OA86 


D800 
D806 
D801 


D801 


0420 
0647 
8807 
1A07 


04C0 


C057 
D001 


0980 
0241 


109E 
C820 


0380 
0280. 


14F9 
0281 
14F6 
C241 
C281 
C200 
0939 
OA89 
O24A 
A24A 
0248 
A209 
06C8 
D808 
06C8 
D808 


1. - 
>7092 


ea 


R1 


~@>70EE 


R2,R3 
>70A8 
2 
>70AA 
@>7174 
2. 
>70AA 
2 3 


— RO, @>EE36 


R6,@>EE96 
R1,@>EE37 
R1,@>EE97 
@>51BE 
R7 | 
R7,@>EFCO 


R1,>00FF 
>7022 
@>F020,@>1CB8 


RO,>0100 
>70E6 
R1,>00C0 
>70E6 
R1,R9 
R1,R10 
RO,R8 
R9,3- 
R9,8 
R10,>0007 
R10,R9 


R8,@>F121 
R8 | 
R8,@>F121 


It 


711C C280 
711E 04c9 
7120 024A 
7124 DOAO 
7128 D26A 
712C 2089 
712E 1310 
7130 04c2 
7132 0228 
7136 06C8 
7138 D808 
713C 06C8 
713E D808 
7142 .c410 
7144 DOAO 
7148 0242 
714C 0982 — 

714E 045B 
7150 04Cc2 
7152 0228 
7156 06C8 
7158 D808 
715C 06C8 
715E D808 
OVERPLOT 


a routine 


RO,R10 

R9 

R10,>000/7 
@>F120,R2 
@>1D42 (R10) ,R9I 
R9,R2 


R8, >2000 
R8 

R8, @>F121 
R8 
R8,@>F1i21 


*RO ; *RO | 


@>F120;R2 
R2,>0F00 
R2,8 

R2 | 
R8,>2000 
R8 | 
R8,@>F121 
R8 | 
R8,@>F121 


can be positioned anywhere 


7162 
7164 
7168 
716C 
716E 
7172 


7174 
7178 
717A 
717C 
T17E 
7180 
7184 


7186: 


7188 
718C 
718E 
7190 


17194 


7198 


| 719A — 
| /19E. ¢ 


71A2 


that allows 
colours only without effecting background colours. 


in memory and is 


*RO,*RO 
@>F120,R2 
R2,>F000 - 
R2,12 
R2,>8000 


R7,@>EFC2 


>7186 
RQ,8 


-RO,R1 
RL, *R7+ 


R1,>00FF: 
RO, 8 


-R4,>8000 


R4,R2 
>719A | 
R4,>F009 
R4, @>1CB8 


R4,>5009. 


R4, @>1CB 


plotting of -£orground 


used by 


changing the word at 1D36' from O5F2 to the start address 
of this routine 5EBA in this case and back again for normal 
lai 


OVERPLOT ROUTINE 


SEBA 
SEBE 
SEC2 
SEC 4 


- SEC8 
' SECA © 


~ SECE 
5EDO 
5ED2 
SED4 
5ED8 
SEDC 
SEDE 


SEE2 


0248 
O6A0 
8F3C 
D020 


0940 


D120 


0944 


DOOS 
OA40 
0268 
O06A0 
8F3C 
D800 


0380 | 


ANDI 
BL 
C 


MOVB 


R8,>BFFF 


— @>05F2— 


*R12+,*R12+ 
@>F120, RO | 
RO,4 | 
@>EE95, R4 


@>05F2 
2R12+,*R12+ 
RO, @>F120 


= x Se 


eee 5 Ie 


oe 
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Your problems/solutions 


Mr RM Lee 
Eastbourne 
Sussex 


Robert has solved one of the problems posed in the last 
newsletter. _ 2 , es | 


The solution to Gary Alexander's clicking problem is very 
simple. The cause is the 9995 internal decrementer which 
interrupts every 10ms causing funny clicks. - 


To solve this the clock has _ to be stopped. To do this | 
in M/C requires R12=1EE0OH and then SBZ 1 to stop the clock. 
SBO 1 re-enables it. 


See ek, ee See 


Julian Terry 
Rainham : — | 
Kent . ‘oe _ Co | i 


Julian has~—also written, at some length, about two points 
raised in the last newsletter. , | 


With reference to C C Kuan's unrandom Random 


As many User's will already know RND on a computer is 
generated by a pseudo random sequence. This is a mathematical 
expression which starting with a SEED will produce a new 
value and a new SEED. | 


= £ (SEED) 
new SEED = £(RND) 


therefore anyone with the correct function f will be able 
to predict the next number in the sequence. However if 
the correct function is not chosen then RND will not be 
apparently random. This is the case with the Cortex. 
C C Kuam tried to make the sequence random:- by using the 
TIC counter and the RANDOM command. This is where I think ; 
his/her (?) error occured. RANDOM sets the first SEED 
in the sequence, but does not change the RND sequenceafter 
the first SEED - i.e. the sequence will be different each 
time the program is run but not subsequently and produces 
a cross latch since the RND function is not "Random enough" 


te NR RAR Rielle ke ov 6 dit aE RRS Sa? Ca 4. 


=. DD es 


The following functions produce very geee pseudo random 
sequences for those interested. 


a. SEED = (1509 x SEED + 41) moa 21° 
or 
b. SEED = (69069 x SEED + 41) moda 


a. will eecduce a new SEED peewee O and 65935 
b. will produce a new SEED between O and 1) 


I “hope they are of use. 


| Andy Kendall of Bristol's N=62.4 


For those who don't understand what is going on here I 
think it is only fair to tell them. a 


A decimal fraction in binary must be the sum of powers 
of 2 between 1/2° to 1/2 where n is the number of binary 
digits right of the binary point. E.g. for a four bit 
binary fraction:- | ss | 


A 1/2 would be represented by .1000 
1 / 4 i | we 1 v9 iL 1 i “ 0100 
O. 6 2 5 1 0 vw w Li oe el 6) 1 0) 


0.4 cannot be exactly expressed aS a binary fraction and 
is | 


= 0.25 + 0.125 + 0.0625 (in the above example) 
ie. .0111 


0.4 can never be reached but the more 1's added to the 
binary fraction the nearer it will get. 


When printing the number to the display the computer prints 
the stored number not what it should be. Number formatting 
can be used to round the number off if desired. 


--- xX xX x-rco 
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Mr P N Paterson 
Crewe 


Mr Paterson has a tricky hardware problem. Maybe someone 
can suggest a solution. 


My machine works satisfactorily except for one extremely 
annoying point and I was wondering whether anybody else 
had come across this. The fact is that I seem to have 
_poor line sync for a period at the start of each TV field. 
Following the Frame Sync pulse. Although I have a locked 
picture (which is shifted slightly to the left) I have 
no colour. It appears. that the inadequate line sync 
operates the TV colour killer circuit. I can ‘acheive 
a colour picture by adjustment of the TV's line hold to 
he extreme of its range but the resulting picture is torn' 


at the top. I have tried: a number of different TV's and 
all are the same. - Also, I have checked every component 
in the PAL encoder - even tried another VDP chip and 
voltages etc. are all correct. My oscilloscope shows 


that the line syncs for the first 40 or so lines are too 
small (measured at the modulator input) 


I would be most grateful for any ideas concerning this 
as I feel I may have to resort to an RBG interface and 
monitor!! | 


Keep up the good work with the User Group. 


a a i a a ae 


MG Radford 
Ashbourne 
Derbyshire 


Mr Radford has an interfacing problem, and would like 
some help in solving it. : 


I have recently experienced a problem with my Cortex for 
which I have so far been unable to find a solution. 


I need to be able to send hexadecimal zero to a printer 
attached to the RS232 Interface or Centronics parallel 
interface. Whilst it is possible to send 01H to FFH by 
the means of - . 


PRINT "<01><02> coee <FF>" 
it is not possible to send - 
PRINT "<00>" 


as this sends the hex data representing "<","0","0",">" 
which is not only incorrect data but also four characters 
instead of one. 


ss. OA: as 


The results of this also show on the monitor as <00>. 
-~---x xx-cco 


I M Austin 
56 Harbury Road 
Birmingham 


The BASIC interpreter of my Cortex I functioned , perfectly 
until recently, but now many of the words do not work 
properly. | a ar oF a 


To investigate this, I would like to make a comparison 
with the memory dump of another Cortex or visit another 
machine; (I live in Birmingham). © a 


Can someone please help. 
-- - xX XxX-r 7 = 


W D Eaves 
 Halkirk 
Caithness 


Mr Eaves has a problem with his screen display. 


Using the TV, (I don't know whether or not a monitor would 
be affected) the screen is prone to Jump occasionally, 
and becomes very unstable when using a black background. 
It appears to occur more in GRAPH Mode, but this may be 
just because I use black backgrounds more in GRAPH mode. 
I think this may be a hardware fault, but do not know 
where it could be - any ideas? 
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And finally in this section, a few words from your Editor. 


Anyone who has purchased a copy of the '3D GRAPH' program 
from us, may have noticed that the option to type in your 
own function does not work. Mr A Lyall, the author of 
the program, has written to us to point out this fault. 
After studying the problem I have discovered that the 
following amendment should make the program work. Any 
further copies of this program sold will, of course, be 
the corrected version. 


10 DIM LIN (10), FUN(9) 

760 PRINT "PLEASE TYPE IN YOUR FUNCTION" 
770 PRINT "ES 1/(COS[X] *SIN[Y]+1.1)" 
780 INPUT SFUN[O] | 

790 SLIN [0]="810 DEF FNA = "+SFUN[O0] 
800 ENTER SLIN[O] 

810 DEF FNA = 

820 GOTO 479 


---xXxXxK-co 
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CORRECTIONS TO NEWSLETTER II 


Unfortunately we have discovered aa there were a few 
mistakes in the 2nd Newsletter. Thank you to anyone who 
wrote in to point these out. 7 


In R.M Lee's letter on page 13, the memory address 


18B2H should be 434H for 1200 baud. (Not 043H as 
shown). 


On page 16, the Sigiasiie line 6054H should read 
LDCR @ > 6071 (R9),8 | 


In the assembly listing on page 21, the line 5FBAH 
should read A@>5FF4,*R10. i 


On page 25 the following lines should be altered 
to read: 


~ 10000 FOR I = 6200H TO 62FEH STEP 2 © 
10400 DATA 1728, -10240 ,-3807,-15279, etc 
10130 DATA 577, 240,-24510, 1696, etc ts 


10180 DATA 25112, etc 
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CORTEX SOFTWARE SCENE 


The following programs are available from us, at £6.50 


each plus V.A.T (see order form). They have all been 
written by Cortex Users. If you have any good programs, 
then why not -send them in... We provide a full marketing 


service, and pay £1.50 royalties per copy sold. 


FROGGER 


hal ’ 


HUNCHBACK 


G DESIGN 


WALL 


CORTELLO 
3D GRAPH 


ARCHIE 


INVADERS & 
ASTEROIDS 


Cortex version of favourite arcade game. 
Includes busy road, crocodiles, turtles etc. 


Guide your man around the screen, and collect 
the keys to.open the safe. Avoid the animated 
obstacles, such as conveyors, and collapsing 
walkways. Can you complete all 16 screens 
each of which presents a new  ~Mmenace? 
(Similar to ‘Manic Miner' or ‘Jet Set Willy') 


Another arcade conversion. Guide Quasimodo 
along the top of the. walls, jumping gaps 
avoiding arrows in order to ring the bells, 
and eventually rescue Esmerelda. 


Menu driven package to design your. own 
Shapes & characters. Draw on screen and then 
convert to data, or vice versa. 


Bomb .a wall, while your aircraft flies 
back & forth across the screen, losing 
height. Complete your task of demolishing 
the wall completely before you hit it or 
your time limit runs out, or you will be 
eliminated! 


Comprehensive adaptation . of the classic 
Othello game. Play against the computer 
at one of two difficultly levels. 


6 graphs to choose from, or the option 
to type in your own function. 


Another multilevel arcade game. Guide 
Archie (a prospective alcholic) along ledges, 
and up ladders to collect wine, whilst 
avoiding the snakes. 


Double package of two famous arcade originals 
Fast machine code ‘shoot em up' action. 


ow ae 


The next two packages are both formatted to output directly 
to a printer via the RS232C port, but could no doubt be 


adapted. 


WINE & FORM 1 


SHARES & 
HISTOGRAM 


MAZE 


NIGHT ATTACK _ 


Home wine making utilities. Calculate 
acid mixtures etc. Print out a standard 
form on which to write your favourite recipes 


Calculate profits/losses on Shares, and 


print out histograms to show you~ where 
your money went. | | 


3D maze adventure, in which you have to 
find a food chest. 5 levels of difficulty, 
-and very good graphics make this anh enjoyable 


game. | 7 


New York is under attack by a skyscraper 


destroying spaceship. Aim the Statue of 
Liberty's torch _to shoot back, and_ save 
the city. | : 
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ORDER FORM 


Please use this form to order your programs. 


PROGRAM TITLE PRICE EACH QUANTITY TOTAL 


, 
3-D GRAPH. £6.50 


MAZE £6.50 


NIGHT ATTACK | £6.50 


SUB TOTAL 
VAT @ 15% 
TOTAL 


Please forward cheque _ to Powertran Cybernetics Limited, 
West Portway Industrial Estate, Andover, Hants. 


= 99.2 


53 BROUGHTON ROAD, 
CROFT, 
LEICESTER 
LEY 6EB 


(PROPRIETORS: PA. ROE AND R. ROE) TEL: SUTTON ELMS (0455) 282679 


wil ¥— 41 Joystick and Sound Module. 


FEATURES 
% Joystick Fort C(Rempstan, Atari ete. compatible) 
# Sound Generator with 3 tones plus molse source 
# 8 inputs and & outputs with 25 way connector oaption 
+ LTouble sided FCB, 100mm =x 7amm, fits inside Cortex case 
+ 


Machine coded Joystick and Sound routines 
DESCRIPTION 


The MarkroSatt JOSY—1 module is designed toa add a permanent 
joystick and sound effects capability to the Cortex computer. 


It comprises a small PCR fitted with a ? way D0 type plug, far the 
joystick and & IC*s including the Texas Instruments SN76489 sound 
generator chip. An optional 25 way D plug can be added to give a full 
S bit plus strobe I/0 capability. The seund output is used with an 
external audio system,or TV sound may be used it the TV modulator 


an the Cortex PCB is changed for a sound and vision version. 


Two software routines are provided with the madule, . written in 
machine code and are callable from Basic. The joystick routine returns 
the same code as the Ascii code for the keypad arrows. A Basic call] 
with tone number, volume and period ais all that is needed to drive 
the sound chip. Three simultaneous tones and moaise can be produced. 


JOSY-1 is available as a blank PCE, a complete kit of parts or: a 
fully assembled and tested module. An 18 page User Guide is 
provided together with. a tape or disc containing the machine code 
routines, a Basic demonstration of sound effects and a FREE copy of 
the Spacebugs II game. 


Constructors should be aware that this module is designed to fit 
permanently inside the Cortex case and some soldering is required oan 
the Cortex PCB ta connect it to the JOSY-1 module. 


Ebus interface is not required for this module. 


PRICES 
FCB plus User Guide and Demo tape | £1O-75 
Complete kit of parts for module with Yw plug £19-9S 
Assembled and tested module with Yu plug £24-75 
| Optianal 25 way 0 type FICE mounting connector 7 7 £3-25 
Software on CDOS compatible disc (instead af tape) £1-S0 


post and packing 73 fp 
Flease allow 21 days for delivery 
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MAREROSOFT SOFTWARE FOR THE CORTEX COMPUTER SYSTEM 


The Following programmes are onmow available for the Cortex. The 
AUSY-1 joystick and seund generator module may be used with any 
| programme marked thus (C0). 


SPACEBUGS II- An updated version of one of the first games 
available for the Cortex now with joystick and sound effects 
added using the JOSY-1 module or keypad. C12 


TAFMAN - A variation oan the Pacman theme. Written in 
Basic for keypad or joystick. It is a 7E programme with 10 
screens and plenty of colourful actican. CI | 


SHAPES “n° SPRITES - A graphics programme to help in 
defining shapes amd sprites. Four planes of 1 to 4 shapes 
can be created, editted and averlayed on top of each other, 
in any colour, to build up ao omulti-caolaured sprite. The — 
Shape data is displayed ain hexadecimal farmat and may be 

saved on disc, paper or cassette. : . _ 


SOLITH SEA ADVENTURE -—- A classical style adventure game. 
Direct your “Man Thursday” to callect the treasure and 
escape the attention of the pirates. a 

| 2 ee _ 

— COMMTEX -~ A communications package written for the Cortex 
to allow access to bulletin boards and Microlink. Any modem 
connected to the RSZS2 port and operating at the standard 
BO0/300, 7E/1200 and 1200/1200 baud rates is supported by 
the Commtex saftware. Utilities are provided for off line 
Preparation and storage af messages. The receive buffer may 
be examined, editted, printed or dumped onte disc. The 
package is written in Basic with machine code I/O routines. 
A user gquide and programme listing is supplied to allow 

extra features to be added if required. 


GRAPHICS - Use this programme with the JOSY-1 joystick toa 
create colaurful scenes for games or just for the fun of it.) 
The pictures are “painted” using a joystick or the keypad 
and helped by functions such as Fill and Circle. The scenes 
may be stered on disc in named files and reloaded as 
required to edit or use in applications. A routine is given 
to add to user programmes which will put a stored picture on 
the screen using a Basic Call. This programme together with 
Shapes “n Sprites makes a complete graphics “toolkit” for 
most applications. [C.1] | | a 


RETURN TO THE DESI — No prizes for guessing the origin of 
this one. Designed around the Starwars theme it has three 
interconnected battle scenes to give your joystick some 
exercise. CI] | | 


The programmes are supplied on 2 1/4" single or double density CbpaS 
compatible discs at £5-75 for one Programme and £3-75 for each 
additional programme. Post and packing is included in the price. 


SLES-—3008 


Tim Gray 

1 Larkspur Drive | 
Featherstone 
Wolverhampton 
West Midlands 
WV10 7TN 


Mr Gray has now finished the design work on his external 
video board for the Cortex. It fully syncronises the VDP 
chip to an external video feed from camera or video tape 
and does the switching to provide a combined video output. 


The board is available from him as an unpopulated PCB with 
circuits, component lists and construction notes for £30.00 
or fully built and tested' with fitting instructions for 
£100.00. —_ 


He has also written a menu driven graphics drawing package 
with lots of plotting commands including circle, polygon 
and a machine code fill command as well as sprite speed 
control shape design large character text and a fast screen 
dump to disk. Screens saved to disk can then be recalled 
for use in other programmes, games etc. 


It is available for CDOS version 1.10. All enquiries to 
the above address. 3 . 
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FLOPPY DISC ELECTRONICS PARTS LIST 


QUANTITY 


a 
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PARTS 


PCB as per circuit diagram 


TMS279 7NL 
TMS9911 
7406. 
7407 — 
74LS02 


-74LS04 


74LS08 


- 74L832 
 -74LS38 — 
 74L874 


741,S138 
74LS139 
74LS163 
74LS244 
74LS259 


 -74LS297 
-LM339 


14 pin IC 


16 pin IC 


20 pin IC 
40 pin IC 


O.lyf cap 
0.22u cap 


socket 


socket 
socket 
socket 


250Vv 
100v 


1/4w resistors 
150R 6 pin SIL 


1N4148 diode 
33p ceramic 
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